home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbgui10 / form5.frm < prev    next >
Text File  |  1998-01-26  |  1KB  |  57 lines
  1. VERSION 5.00
  2. Begin VB.Form Form5 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Picture Box Line Demo"
  5.    ClientHeight    =   4695
  6.    ClientLeft      =   1500
  7.    ClientTop       =   1785
  8.    ClientWidth     =   6045
  9.    DrawWidth       =   3
  10.    LinkTopic       =   "Form5"
  11.    ScaleHeight     =   4695
  12.    ScaleWidth      =   6045
  13.    Begin VB.Menu l1 
  14.       Caption         =   "Lines"
  15.    End
  16.    Begin VB.Menu l2 
  17.       Caption         =   "&Pixels"
  18.    End
  19.    Begin VB.Menu l3 
  20.       Caption         =   "&Boxes"
  21.    End
  22.    Begin VB.Menu l5 
  23.       Caption         =   "&Solid"
  24.    End
  25.    Begin VB.Menu l4 
  26.       Caption         =   "&Clear Screen"
  27.    End
  28. End
  29. Attribute VB_Name = "Form5"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Private Sub l1_Click()
  35. For l = 1 To 1500
  36. Line -(Rnd * 6000 + 80, Rnd * 5000 + 80), QBColor(Rnd * 14 + 1)
  37. Next l
  38. End Sub
  39. Private Sub l2_Click()
  40. For p = 1 To 6000
  41. PSet (Rnd * 6000, Rnd * 6000), QBColor(Rnd * 14 + 1)
  42. Next p
  43. End Sub
  44. Private Sub l3_Click()
  45. For B = 1 To 1500
  46. Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), B
  47. Next B
  48. End Sub
  49. Private Sub l4_Click()
  50. Form5.Cls
  51. End Sub
  52. Private Sub l5_Click()
  53. For c = 1 To 700
  54. Line -(Rnd * 6000, Rnd * 5000), QBColor(Rnd * 14 + 1), BF
  55. Next c
  56. End Sub
  57.